Load Catch data and list of focal species

Filter national data set to just Sonora and Baja California Sur

Total value of landings is $411,467

value2014<-spp_catch%>%
  filter(Ano=="2014")%>%
  merge(focalspecies, by="NombreCientifico")%>%
  mutate(total_min_value_2014=(MT*Min2014*0.053*1000), total_max_value_2014=(MT*Max2014*0.053*1000), total_avg_value_2014=(MT*Average2014*0.053*1000), value_percent=(total_avg_value_2014/sum(total_avg_value_2014)*100))

plot_ly(value2014, labels = ~NombreCientifico, values = ~total_avg_value_2014, type = 'pie', showlegend=FALSE) %>%
  layout(title = 'Revenue generated by focal species in 2014 in USD')
sum(value2014$total_avg_value_2014)
## [1] 411476.3